home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmigaPlus / Tools / Development / envCPP31 / compilers / sas-c / rexx / quickref.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  2002-01-01  |  1.4 KB  |  74 lines
  1. /* rexx macro */
  2.  
  3. options results                             /* enable return codes     */
  4.  
  5. if (left(address(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.  
  7.     address 'GOLDED.1'
  8.  
  9. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  10.  
  11. if (RC ~= 0) then
  12.  
  13.     exit
  14.  
  15. options failat 6                            /* ignore warnings         */
  16.  
  17. signal on syntax                            /* ensure clean exit       */
  18.  
  19. /* ---------------------- INSERT YOUR CODE HERE ---------------------- */
  20.  
  21. /* INPUTS: ASK/S */
  22.  
  23. parse upper arg MODE
  24.  
  25. 'QUERY CAT'
  26.  
  27. if (RESULT = "deutsch") then do
  28.  
  29.     STRING.sLOOKUP = "Funktionsname ..."
  30. end
  31. else do
  32.  
  33.     STRING.sLOOKUP = "Function name..."
  34. end
  35.  
  36. 'QUERY WORD VAR=SYMBOL'
  37.  
  38. if ((MODE = "ASK") | (SYMBOL = "")) then do
  39.  
  40.     'REQUEST STRING TITLE="SAS/C" BODY="' || STRING.sLOOKUP || '" VAR=SYMBOL'
  41.  
  42.     if (RC ~= 0) then do
  43.  
  44.         'UNLOCK'
  45.  
  46.         exit
  47.     end
  48. end
  49.  
  50. if (SYMBOL ~= "") then do
  51.  
  52.     if (right(SYMBOL, 2) ~= "()") then
  53.  
  54.         SYMBOL = SYMBOL || "()"
  55.  
  56.     /* the next line ensures that the guide is loaded even if the node does not exist */
  57.  
  58.     'HELP CATALOG="sc:help/sc_lib.guide"'
  59.  
  60.     'HELP CATALOG="sc:help/sc_lib.guide" TOPIC="' || SYMBOL || '"'
  61. end
  62.  
  63. /* ------------------------- END OF YOUR CODE ------------------------ */
  64.  
  65. 'UNLOCK'
  66.  
  67. exit
  68.  
  69. SYNTAX:
  70.  
  71. SAY "Error in line" SIGL ":" ERRORTEXT(RC)
  72.  
  73. 'UNLOCK'
  74.